Point Programming 1/PPROG1.ISO/pascal/swag/cursor.swg/0016_cursor hiding.pas

Pascal/Delphi Source File | 1994-05-25 | 450 b | 32 lines

var crstyp: word;

procedure cursoff;

{ Turns the cursor off.  Stores its format for later redisplaying. }

begin
  asm
    mov ah, 03h
    mov bh, 00h
    int 10h
    mov crstyp, cx
    mov ah, 01h
    mov cx, 65535
    int 10h
    end;
  end;

procedure curson;

{ Turns the cursor back on, using the cursor display previously stored. }

begin
  asm
    mov ah, 01h
    mov cx, crstyp
    int 10h
    end;
  end;